<!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
<stack>
<name>in</name>
<id>-1</id>
<cardCount>52</cardCount>
<cardID>2915</cardID>
<listID>31278</listID>
<cantModify><false /></cantModify>
<cantDelete><false /></cantDelete>
<cantAbort><false /></cantAbort>
<cardSize>
<width>416</width>
<height>216</height>
</cardSize>
<script>-- Sudderth 1/96 v2.1on openStackif the version < 2.2 thenanswer "This stack requires HyperCard 2.2 or later."go homeend ifset userlevel to 5if checkDepth() is true thenshowAboutBoxend ifpass openStackend openStackon selectWholeLine lineNumber,theFieldput line lineNumber of the value of theField into theTextif theText is not empty thenput (number of chars of line 1 to lineNumber of ¬the value of theField + 1) into endChardo "select char (endChar - length(theText)) to endChar of" ¬&& theFieldend ifend selectWholeLinefunction checkDepthput GetDepth ("C") into xif x < 8 thenreturn falseelsereturn trueend ifend checkDepth</script>
